home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 2.iso / heat_tst / mactest.cfg < prev    next >
Text File  |  1991-10-19  |  1KB  |  84 lines
  1. /*    :
  2.     :    マクロベンチマークテスト
  3.     :
  4.     :    1991.10. 6
  5.     :
  6. */
  7. /*----------------------------------------------------------------
  8. /*    TEST #1
  9. /*
  10. TEST_1 {
  11.     time("START")
  12.     echo("TEST #1 : 10,000回ループ")
  13.     I = 0;
  14.     while ( I < 10000 )
  15.     {    inc(I)
  16.     }
  17.     time("END")
  18.     expr("TIME","\(END)-\(START)")
  19.     echo("\n    TIME \(TIME) sec\n")
  20.     mos_wait("x","y",84)
  21. }
  22.  
  23. /*----------------------------------------------------------------
  24. /*    TEST #2
  25. /*
  26. TEST_2 {
  27.     time("START")
  28.     echo("TEST #2 : 四則演算")
  29.     I = 0;
  30.     A = 0;
  31.     B = 0;
  32.     C = 1;
  33.     D = 100000;
  34.     while ( I < 1000 )
  35.     {    inc(I)
  36.         add("A",1)
  37.         sub("B",1)
  38.         mul("C",2)
  39.         div("D",2)
  40.     }
  41.     time("END")
  42.     expr("TIME","\(END)-\(START)")
  43.     echo("\n    TIME \(TIME) sec\n")
  44.     mos_wait("x","y",84)
  45. }
  46.  
  47. /*----------------------------------------------------------------
  48. /*    TEST #3
  49. /*
  50. TEST_3 {
  51.     time("START")
  52.     echo("TEST #3 : ユーザー定義関数呼び出し")
  53.     I = 0;
  54.     while ( I < 1000 )
  55.     {    inc(I)
  56.         User_func_1()
  57.         User_func_2()
  58.     }
  59.     time("END")
  60.     expr("TIME","\(END)-\(START)")
  61.     echo("\n    TIME \(TIME) sec\n")
  62.     mos_wait("x","y",84)
  63. }
  64. User_func_1 {
  65. }
  66. User_func_2 {
  67. }
  68.  
  69. main {
  70.     wind_close()
  71.     wind_init();
  72.     wind_open2("マクロベンチマークテスト")
  73.     TOTAL_TIME = 0;
  74.  
  75.     TEST_1();    add("TOTAL_TIME",TIME)
  76.     TEST_2();    add("TOTAL_TIME",TIME)
  77.     TEST_3();    add("TOTAL_TIME",TIME)
  78.  
  79.     echo("\nTOTAL \(TOTAL_TIME) sec\n")
  80.     mos_wait("x","y",84)
  81.     wind_close();
  82. }
  83.  
  84.